'Place in form and start

'==================================================================
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
'------------------------------------------------------------------
Public Function GetSystemStartup() As Date
Dim Ticks As Double

Ticks = GetTickCount / 1000 / 60 / 60 / 24

GetSystemStartup = Now() - dTicks
End Function
'------------------------------------------------------------------
Private Sub Form_Load()
MsgBox GetSystemStartup()
End Sub
'==================================================================